home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
EE.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
868b
|
32 lines
(defun ederr (s)
(if (/= s "Function cancelled")(princ (strcat "\nError: " s)))
(setq *error* oer ederr nil )(princ))
(setq oer *error* *error* ederr)
(setq ss (ssget))
(setq counter 0)
(setq tftemp "tempfil.xxx")
(prompt "Writing text...")
(setq txt(open tftemp "w"))
(while
(setq e (ssname ss counter))
(setq st (cdr (assoc 1 (entget e))))
(setq sp(cdr (assoc 10 (entget e))))
(setq sl(cdr (assoc 7 (entget e))))
(princ st txt)
(princ "\n" txt)
(setq counter (+ counter 1)))
(progn
(close txt)
(command "ed1" tftemp)
(command "erase" ss "")
(setq sp(getpoint "\nNew startpoint for text: "))
(if (= sp nil)(ederr))
(setq txt(open tftemp "r"))
(setq dt(read-line txt))
(command "text" "s" sl sp "" dt)
(while
(/= dt nil)
(setq dt(read-line txt))
(command "text" "" dt))
(close txt)
(princ))